﻿'========================================================================
'功能:流程定義檔 商業邏輯層物件
'作者:andy
'日期: 2011/8/30
'========================================================================

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Data


Namespace WorkFlow.BBL
    Public Class WFInfoBBL



        ''' <summary>
        ''' 
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function GetInfoData(ByVal dbName As String) As DataTable
            Dim db1 As WorkFlow.DAO.WFInfoDAO = New WorkFlow.DAO.WFInfoDAO(dbName)
            Return db1.GetInfoData()
        End Function


        ''' <summary>
        ''' 
        ''' </summary>
        ''' <remarks></remarks>
        Public Sub SetCreasysInfoData(ByVal CreasysInfo As String, ByVal UID As String, ByVal dbName As String)
            Dim db1 As WorkFlow.DAO.WFInfoDAO = New WorkFlow.DAO.WFInfoDAO(dbName)
            db1.SetCreasysInfoData(CreasysInfo, UID)
        End Sub

        ''' <summary>
        ''' 
        ''' </summary>
        ''' <remarks></remarks>
        Public Sub SetUserInfoData(ByVal UserInfo As String, ByVal UID As String, ByVal dbName As String)
            Dim db1 As WorkFlow.DAO.WFInfoDAO = New WorkFlow.DAO.WFInfoDAO(dbName)
            db1.SetUserInfoData(UserInfo, UID)
        End Sub


    End Class


End Namespace


